Attribute VB_Name = "NAME_A_RANGE"

    '____________________________________________________________________________________________________
    '====================================================================================================
    ' Sub:          nameFilterRanges
    '
    ' Written by:   Rameen Bakhtiary
    ' Created on:   10/24/2011
    ' Description:
    '               Creates named range for each row (length of 10) using the cell to the left
    '               of selected cell as the range name.
    '
    '====================================================================================================
    Sub nameFilterRanges()
    i = 2
    Dim rgname As String
    While Range("c" & i) <> ""
        rgname = Range("c" & i)
        Range("d" & i & ":m" & i).Select
        tmp = ActiveWorkbook.Names.Add(rgname, Selection)
        i = i + 1
    Wend
    End Sub
    
    
    
    
    
